home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 32
/
Tiger_Disk_032_1996-11_Tiger-Crew-Disk_de_Side_A.d64
/
flying letters
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
573b
|
14 lines
10 bs=1024:f=55296:poke53280,8:poke53281,0:dima$(9):fort=0to9:reada$(t):next
20 data"tiger-disk-demo"
30 data"diese routine wirft die woerter"
40 data"buchstabenweise auf den screen"
50 data"der text steht in den zeilen ab 30"
60 data"die anzahl der zeilen steht in","den zeilen 10 und 100"
70 data"bei aenderung bitte dimensionieren!"
80 data"wir wuenschen dir viel spass","mit dieser routine!","t i g e r c r e w"
90 ifs1thenlist
100 fori=0to9:a$=a$(i):a=int(20-len(a$)/2):print"[147][153]"tab(a)a$
110 fork=bs+atobs+a+len(a$):x=peek(k):forn=k+40tok+40*18step40
120 poken,x:poken-bs+f,4:poken-40,32:nextn,k
160 forj=1to22:print"":fort=1to20:next:nextj,i:s1=s1+1:goto90